home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1400copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.5 KB  |  39 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1400"
  4. Company = "Lotus"
  5. title = "SmartSuite 96 Upgrade"
  6. Price = 149.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Windows CD-ROM"
  13. Title Description = "Get five of the hardest-working, easiest-to-use applications in business today: Lotus 1-2-3 spreadsheet, Lotus Word Pro word processor, Lotus Approach relational database, Lotus Freelance Graphics presentation graphics, and Lotus Organizer personal and group scheduling software. Packed with productivity tools to help you get more done in less time. All by itself, or together with Lotus Notes, w will make you and your whole team more productive."
  14.  
  15. -------------------------------------
  16. dline = ""
  17. counter = 0
  18. repeat while dline <> title number
  19. counter = counter + 1
  20. dline = GetWord(1,   GetLine(titl,counter) )   
  21. test(dline = title number, LineInTitle = counter)
  22. end repeat 
  23.  
  24. starttitle = LineInTitle
  25. num of titles shown = 6
  26. endtitle = starttitle + num of titles shown - 1
  27. titles = ""
  28. title highlight = ""
  29. repeat with counter = starttitle to endtitle
  30. nextline = GetLine(titl,counter)
  31. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  32. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  33. end repeat
  34. dpage = CurrentPageID
  35.  
  36. newtitle = FALSE
  37. end if
  38.  
  39.